home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / THIN C 2.0 / Projects / dice / dice.c next >
Encoding:
C/C++ Source or Header  |  1991-04-04  |  600 b   |  49 lines  |  [TEXT/THIN]
  1. RollOne()
  2. {
  3.     long    rawResult;
  4.     int        roll;
  5.     
  6.     rawResult = rand();
  7.  
  8.     roll = (rawResult * 6) / 32768;
  9.     
  10.     return( roll + 1 );
  11. }
  12.  
  13. PrintX( int    howMany )
  14. {
  15.     int    i;
  16.     
  17.     for ( i=0; i<howMany; i++ )
  18.         printf( "x" );
  19. }
  20.  
  21. PrintRolls( int    rolls[] )
  22. {
  23.     int        i;
  24.     
  25.     for ( i=0; i<11; i++ )
  26.     {
  27.         printf( "%2d (%3d):  ", i+2, rolls[ i ] );
  28.         PrintX( rolls[ i ] / 10 );
  29.         printf( "\n" );
  30.     }
  31. }
  32.  
  33. main()
  34. {
  35.     int        rolls[ 11 ], twoDice, i;
  36.     
  37.     srand( clock() );
  38.     
  39.     for ( i=0; i<11; i++ )
  40.         rolls[ i ] = 0;
  41.     
  42.     for ( i=1; i <= 1000; i++ )
  43.     {
  44.         twoDice = RollOne() + RollOne();
  45.         ++ rolls[ twoDice - 2 ];
  46.     }
  47.     
  48.     PrintRolls( rolls );
  49. }